home *** CD-ROM | disk | FTP | other *** search
-
- wdw(XXWL 1 6 10 15 ("helpfile.inf") 1 StandardWDW);
-
- o(XXWL00 S . 0 0 36 1 Extra 1); bg(XXWL00 . (" Select")); eg();
- o(XXWL01 S . 0 1 36 1 Extra 1); bg(XXWL01 . (" List:") ); eg();
-
- o(XXWL90 I I 5 3 4 1 Standard 1);
- :XXWL92 S . 1 3 4 1 Standard 1);
- :XXWL93 S . 1 4 4 1 Standard 1);
- :XXWL94 S . 1 13 4 1 Standard 1);
- bg(XXWL90 . 0); eg();
- bg(XXWL92 . Home); cn(raK("(int)OBJ:XXWL90.V:=0;")); eg();
- bg(XXWL93 . (" Up"));cn(raK("(int)OBJ:XXWL90.V-=6[0];")); eg();
- bg(XXWL94 . Down); cn(raK("(int)OBJ:XXWL90.V-=(-6);")); eg();
-
- o(XXWL9A N N 1 5 4 1 Secure 1);
- :XXWL9B N N 1 6 4 1 Secure 1);
- :XXWL9C N N 1 7 4 1 Secure 1);
- :XXWL9D N N 1 8 4 1 Secure 1);
- :XXWL9E N N 1 9 4 1 Secure 1);
- :XXWL9F N N 1 10 4 1 Secure 1);
- :XXWL9G N N 1 11 4 1 Secure 1);
- :XXWL9H N N 1 12 4 1 Secure 1);
- bg(XXWL9A . (" ")); i( ao 2); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9A.V);"));cn(aW XXWS);
- eg();
- bg(XXWL9B . (" ")); i( ao 3); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9B.V);"));cn(aW XXWS);
- eg();
- bg(XXWL9C . (" ")); i( ao 4); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9C.V);"));cn(aW XXWS);
- eg();
- bg(XXWL9D . (" ")); i( ao 5); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9D.V);"));cn(aW XXWS);
- eg();
- bg(XXWL9E . (" ")); i( ao 6); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9E.V);"));cn(aW XXWS);
- eg();
- bg(XXWL9F . (" ")); i( ao 7); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9F.V);"));cn(aW XXWS);
- eg();
- bg(XXWL9G . (" ")); i( ao 8); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9G.V);"));cn(aW XXWS);
- eg();
- bg(XXWL9H . (" ")); i( ao 9); pn( an (ptr)OBJ:XXWL90.V);
- cn(raK("(str)OBX:act.aln:=((str)OBJ:XXWL9H.V);"));cn(aW XXWS);
- eg();
-
- ng( KEY ("XXWL:27.0")); c( W XXWS); eg(); /* ESC:Zurueck */
-
- End();
-
-